home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / env15w.zip / DATE.ENV < prev    next >
Text File  |  1991-10-15  |  919b  |  43 lines
  1. set time=int(100*timenow())/100
  2. calc time
  3. list time The current time is {get*value}
  4. erase time
  5.  
  6. set year=int(datenow())
  7. calc year
  8. set month=int(100*(datenow()-%year%))
  9. calc month
  10. set day=round(100*frac(100*datenow()))
  11. calc day
  12. list comspec The current date is %day%/%month%-%year%
  13. erase day
  14. erase month
  15. erase year
  16.  
  17. set days=int((days(datenow())+5)@7+0.1)
  18. calc days
  19. set days=%days%+(%days%≡0)
  20. calc days
  21. list days The week's day number is {get*value}
  22. set day1=Monday
  23. set day2=Tuesday
  24. set day3=Wednesday
  25. set day4=Thursday
  26. set day5=Friday
  27. set day6=Saturday
  28. set day7=Sunday
  29. set% days=day%days%
  30. list days The weekday is a {get*value}
  31. erase day?
  32.  
  33. set dayone=days(int(datenow())+0.0101)
  34. calc dayone
  35. set weekone=(int((%dayone%+5)@7+0.1))>3
  36. calc weekone
  37. set week=(days(datenow())-%dayone%)÷7+%weekone%+1
  38. calc week
  39. list week This is Week {get*value}
  40. erase dayone
  41. erase weekone
  42. erase week
  43.